home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / jade / lisp / loadkeys.jlc < prev    next >
Text File  |  1995-03-09  |  7KB  |  42 lines
  1. ;;; Source file: /usr/local/lib/jade/3.2/lisp/loadkeys.jl
  2. ;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:57 1994
  3. ;;; Jade 3.2
  4.  
  5. (defvar global-keymap (make-keytab) 81669)
  6.  
  7. (defvar ctrl-x-keymap (make-keytab) 81686)
  8.  
  9. (defvar ctrl-x-4-keymap (make-keylist) 81711)
  10.  
  11. (defvar ctrl-x-5-keymap (make-keylist) 81738)
  12.  
  13. (defvar ctrl-c-keymap nil 81765)
  14.  
  15. (make-variable-buffer-local (quote ctrl-c-keymap))
  16.  
  17. (defvar user-keymap (make-keylist) 81811)
  18.  
  19. (setq unbound-key-hook nil keymap-path (quote (global-keymap)))
  20.  
  21. (make-variable-buffer-local (quote keymap-path))
  22.  
  23. (make-variable-buffer-local (quote unbound-key-hook))
  24.  
  25. (setq mark-1 (make-mark) mark-2 (make-mark) mark-3 (make-mark))
  26.  
  27. (bind-keys global-keymap "Meta-0" (quote (numeric-arg 0)) "Meta-1" (quote (numeric-arg 1)) "Meta-2" (quote (numeric-arg 2)) "Meta-3" (quote (numeric-arg 3)) "Meta-4" (quote (numeric-arg 4)) "Meta-5" (quote (numeric-arg 5)) "Meta-6" (quote (numeric-arg 6)) "Meta-7" (quote (numeric-arg 7)) "Meta-8" (quote (numeric-arg 8)) "Meta-9" (quote (numeric-arg 9)) "Meta--" (quote negative-arg) "Up" (quote goto-prev-line) "Down" (quote goto-next-line) "Left" (quote goto-left-char) "Right" (quote goto-right-char) "Shift-Up" (quote (progn (set-auto-mark) (goto-char (pos nil 0)))) "Shift-Down" (quote (progn (set-auto-mark) (goto-char (pos nil (1- (buffer-length)))))) "Shift-Left" (quote goto-line-start) "Shift-Right" (quote goto-line-end) "Ctrl-Up" (quote prev-screen) "Ctrl-Down" (quote next-screen) "Ctrl-Left" (quote (goto-char (left-char 40))) "Ctrl-Right" (quote (goto-char (right-char 40))) "Meta-Left" (quote backward-word) "Meta-Right" (quote forward-word) "Meta-Up" (quote backward-paragraph) "Meta-Down" (quote forward-paragraph) "Ctrl-TAB" (quote goto-next-tab) "Shift-TAB" (quote goto-prev-tab) "RET" (quote split-line) "Backspace" (quote backspace-char) "DEL" (quote delete-char) "Shift-Backspace" (quote backward-kill-line) "Shift-DEL" (quote kill-line) "Ctrl-DEL" (quote kill-whole-line) "Meta-DEL" (quote kill-word) "Meta-ESC" (quote eval-and-print) "Meta-TAB" (quote goto-next-tab) "Meta-Backspace" (quote backward-kill-word) "Ctrl-Meta-Backspace" (quote backward-kill-exp) "Help" (quote help) "Meta-Help" (quote toggle-iconic) "Ctrl-@" (quote set-auto-mark) "Meta-@" (quote mark-word) "Meta-%" (quote query-replace) "Ctrl-a" (quote goto-line-start) "Ctrl-b" (quote goto-prev-char) "Meta-b" (quote backward-word) "Ctrl-Meta-b" (quote backward-exp) "Ctrl-c" (quote (setq next-keymap-path (quote (ctrl-c-keymap user-keymap)))) "Meta-c" (quote capitalize-word) "Ctrl-Meta-c" (quote abort-recursive-edit) "Ctrl-d" (quote delete-char) "Meta-d" (quote kill-word) "Ctrl-e" (quote goto-line-end) "Ctrl-f" (quote goto-next-char) "Meta-f" (quote forward-word) "Ctrl-Meta-f" (quote forward-exp) "Ctrl-h" (quote help) "Meta-h" (quote mark-paragraph) "Ctrl-i" (quote insert-block) "Meta-i" (quote (insert "    ")) "Meta-j" (quote goto-line) "Ctrl-k" (quote kill-line) "Ctrl-Meta-k" (quote kill-exp) "Ctrl-l" (quote centre-display) "Meta-l" (quote downcase-word) "Ctrl-m" (quote block-toggle) "Ctrl-M" (quote toggle-rect-blocks) "Meta-m" (quote (goto-glyph (indent-pos))) "Ctrl-n" (quote goto-next-line) "Meta-n" (quote (progn (set-auto-mark) (goto-char (match-brackets)))) "Ctrl-o" (quote open-line) "Ctrl-p" (quote goto-prev-line) "Ctrl-q" (quote (setq next-keymap-path t)) "Ctrl-r" (quote isearch-backward) "Ctrl-s" (quote isearch-forward) "Ctrl-t" (quote transpose-chars) "Meta-t" (quote transpose-words) "Ctrl-Meta-t" (quote transpose-exps) "Ctrl-u" (quote universal-arg) "Meta-u" (quote upcase-word) "Ctrl-v" (quote next-screen) "Meta-v" (quote prev-screen) "Ctrl-w" (quote kill-block) "Ctrl-W" (quote delete-block) "Meta-w" (quote copy-block-as-kill) "Ctrl-x" (quote (setq next-keymap-path (quote (ctrl-x-keymap)))) "Meta-x" (quote call-command) "Ctrl-y" (quote yank) "Ctrl-Y" (quote yank-rectangle) "Ctrl-z" (quote toggle-iconic) "Ctrl-." (quote rotate-buffers-forward) "Ctrl-," (quote rotate-buffers-backward) "Ctrl-SPC" (quote block-toggle) "Meta-SPC" (quote just-spaces) "Ctrl-]" (quote abort-recursive-edit) "Meta-[" (quote backward-paragraph) "Meta-]" (quote forward-paragraph) "Ctrl-_" (quote undo) "Meta-!" (quote system) "Meta-<" (quote (progn (set-auto-mark) (goto-buffer-start))) "Meta->" (quote (progn (set-auto-mark) (goto-buffer-end))) "Meta-;" (quote insert-comment) "Meta-~" (quote (set-buffer-modified nil nil)) "Meta-\\" (quote no-spaces) "Ctrl-Meta-\\" (quote indent-area) "F1" (quote (goto-mark mark-1)) "F2" (quote (goto-mark mark-2)) "F3" (quote (goto-mark mark-3)) "Shift-F1" (quote (set-mark mark-1 (cursor-pos) (current-buffer))) "Shift-F2" (quote (set-mark mark-2 (cursor-pos) (current-buffer))) "Shift-F3" (quote (set-mark mark-3 (cursor-pos) (current-buffer))) "LMB-Click1" (quote (goto-char (mouse-pos))) "LMB-Click2" (quote block-toggle) "LMB-Move" (quote (goto-char (mouse-pos))) "MMB-Click1" (quote yank-to-mouse) "RMB-Click1" (quote toggle-iconic) "Meta-Shift-LMB-Click1" (quote block-kill))
  28.  
  29. (bind-keys ctrl-x-keymap "Ctrl-b" (quote buffer-menu) "Ctrl-c" (quote save-and-quit) "Ctrl-f" (quote find-file) "Ctrl-l" (quote downcase-area) "Ctrl-r" (quote find-file-read-only) "Ctrl-s" (quote save-file) "Ctrl-u" (quote upcase-area) "Ctrl-v" (quote find-alternate-file) "Ctrl-w" (quote save-file-as) "Ctrl-x" (quote swap-cursor-and-auto-mark) "0" (quote close-window) "1" (quote close-other-windows) "2" (quote open-window) "4" (quote (setq next-keymap-path (quote (ctrl-x-4-keymap)))) "5" (quote (setq next-keymap-path (quote (ctrl-x-5-keymap)))) "b" (quote switch-to-buffer) "f" (quote set-fill-column) "h" (quote mark-whole-buffer) "i" (quote insert-file) "k" (quote kill-buffer) "o" (quote (set-current-window (next-window) t)) "q" (quote (set-buffer-read-only nil (not (buffer-read-only-p)))) "s" (quote save-some-buffers) "u" (quote undo) "`" (quote next-error) "#" (quote server-close-file))
  30.  
  31. (bind-keys ctrl-x-4-keymap "Ctrl-f" (quote (in-other-window (quote find-file))) "a" (quote (in-other-window (quote add-change-log-entry))) "b" (quote (in-other-window (quote switch-to-buffer))) "f" (quote (in-other-window (quote find-file))) "h" (quote (in-other-window (quote help))) "i" (quote (in-other-window (quote info))) "`" (quote (in-other-window (quote next-error))))
  32.  
  33. (bind-keys ctrl-x-5-keymap "Ctrl-f" (quote (in-new-window (quote find-file))) "a" (quote (in-new-window (quote add-change-log-entry))) "b" (quote (in-new-window (quote switch-to-buffer))) "f" (quote (in-new-window (quote find-file))) "h" (quote (in-new-window (quote help))) "i" (quote (in-new-window (quote info))) "`" (quote (in-new-window (quote next-error))))
  34.  
  35. (defun self-insert (event-string) 81865 (interactive "E") (jade-byte-code "    " [insert event-string] 2))
  36.  
  37. (defun numeric-arg (digit) 82024 (jade-byte-code "pþ+\"püYVû(aüWû(Jü'û(IF&" [digit keymap-path next-keymap-path current-prefix-arg 10 - prefix-arg] 2))
  38.  
  39. (defun negative-arg (arg) 82055 (interactive "P") (jade-byte-code "!püYû aüIû Jüû IF%" [keymap-path next-keymap-path arg -1 - prefix-arg] 2))
  40.  
  41. (defun universal-arg (arg) (interactive "P") (jade-byte-code "!nüLYNHûJüIKûIF$" [keymap-path next-keymap-path arg 4 prefix-arg] 3))
  42.